home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 September & October / Amiga-CD 1997 #9-10.iso / software / artscaniii / steuerung < prev    next >
AmigaDOS Script File  |  1992-09-17  |  1KB  |  68 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "copy"
  8.     set vcopy 1
  9. endif
  10. if "[param]" EQ "start"
  11.     set vassign 1
  12.     set vstart 1
  13.     set vunassign 1
  14. endif
  15. set bcopy        1
  16. set bstart       1
  17.  
  18.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  19.     set nummer 0
  20.     if $bcopy EQ 1
  21.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  22.          set nummer `eval $nummer + 1`
  23.          set ncopy $nummer
  24.     endif
  25.     if $bstart EQ 1
  26.          echo >>t:tmpsteuerung " Start" NOLINE
  27.          set nummer `eval $nummer + 1`
  28.          set nstart $nummer
  29.     endif
  30.     if "[param]" EQ ""
  31.         echo >>t:tmpsteuerung " Ende" NOLINE
  32.         execute >nil: t:tmpsteuerung
  33.         delete >nil: t:tmpsteuerung
  34.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  35.         if $reqerg[$$] EQ 0
  36.             skip Ende
  37.         endif
  38.     endif
  39.     if $reqerg[$$] EQ $ncopy
  40.         set vcopy 1
  41.     endif
  42.     if $reqerg[$$] EQ $nstart
  43.         set vassign 1
  44.         set vstart 1
  45.         set vunassign 1
  46.     endif
  47. endif
  48.  
  49. if $vstart EQ 1
  50. ;>>>>>>>> Hier steht das Startprogramm
  51.     :Software/ARTscanIII/ARTscanIII_Demo
  52. endif
  53. if $vcopy EQ 1
  54.     execute :c/Verzeichniskopieren ":Software/ARTscanIII/" "ARTscanIII" 130048
  55. endif
  56.  
  57. unset bstart
  58. unset vstart
  59. unset nstart
  60. unset bcopy
  61. unset vcopy
  62. unset ncopy
  63. if "[param]" EQ ""
  64.     execute Steuerung
  65. endif
  66. LAB Ende
  67. unsetenv reqerg[$$]
  68.